﻿Imports CapaLogica.CL.Carrera
Imports CapaLogica.CL.Usuario

Public Class frmRegistrarCarrera

    Private Function validar() As Boolean
        Dim result As Boolean
        result = True
        Dim mensaje As String
        mensaje = ""

        If (txtNombre.Text = Nothing) Then
            mensaje += "Debe de ingresar el nombre de la carrera" + vbCrLf
            result = False
        End If
        If (txtCodigo.Text = Nothing) Then
            mensaje += "Debe de ingresar el codigo de la carrera" + vbCrLf
            result = False
        End If

        If (txtDescripcion.Text = Nothing) Then
            mensaje += "Debe de ingresar la descripción de la carrera" + vbCrLf
            result = False
        End If

        If result = False Then
            MessageBox.Show(mensaje, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

        Return result
    End Function


    Private Sub refrescar()
        txtCodigo.Text = Nothing
        txtNombre.Text = Nothing
        txtDescripcion.Text = Nothing


    End Sub


    Private Sub tsbRefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbRefrescar.Click
        refrescar()
    End Sub


    Private Sub tsbRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbRegistrar.Click
        If validar() Then
            Dim mensaje As String
            mensaje = "¿Desea registrar la carrera?"
            Dim button As DialogResult = MessageBox.Show(mensaje, "Usuario", MessageBoxButtons.YesNoCancel,
                                                         MessageBoxIcon.Warning)
            If button = DialogResult.Yes Then
                Try
                    GestorCarrera.registrarCarrera(txtCodigo.Text, txtNombre.Text, txtDescripcion.Text)
                    MessageBox.Show("La carrera se ha registrado con éxito")
                    refrescar()
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try

            Else
                MsgBox("¡La carrera no ha sido creada!", MsgBoxStyle.Information, "Carrera")
            End If
        End If

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Dispose()
    End Sub
End Class
